#include "../h/code.h"

void schemeCompiledFunction(){




// CAR: runtime binding
static struct SOBClosure tmp_primitive = {SCHEME_CLOSURE,(SchemeObject **)01012100, &&Lcar};
r1 = (void *)getSymbol("car", SymbolTableHead);
SYM_ISDEF(r1) = 1;
SYM_VALUE(r1) = &tmp_primitive;


Lcar: // CAR code
if (stack[fp-3] != 1)
	goto Error_Wrong_Number_Of_Parameters;
r1 = stack[fp-4];
if (IS_SOB_PAIR(r1))
	goto Error_Pair_Type_Mismatched;
r_res = SOB_PAIR_CAR(r1);
goto *pop();
Error_Wrong_Number_Of_Parameters:;
Error_Pair_Type_Mismatched:;

}
